home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
aed243a.zip
/
RSB5UTOG.MRG
< prev
next >
Wrap
Text File
|
1990-06-10
|
7KB
|
172 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB5.BAS to produce RSB5UTOG.BAS
* RBBSSUB5.BAS: Date 5-26-1990 Size 88881 bytes
* ------------[ Created 06-10-1990 02:01:35 ]------------
* REPLACING old line(s) by new
20205 MarkingTime = (ZAnsIndex = FirstDnld OR NOT ZConcatFIles)
ZFileName$ = ZUserIn$(ZAnsIndex)
* ------[ first line different ]------
CALL AllCaps(ZFileName$)
CALL Remove (ZFileName$,", ")
ZViolation$ = "Download "
IF PersonalDnld THEN _
CALL BreakFileName (ZFileName$,DR$,ZWasY$,WasX$,ZTrue) : _
ZFileNameHold$ = ZWasY$ + _
WasX$ : _
CALL AllCaps(ZFileNameHold$) : _
GOTO 20235
ZFileNameHold$ = ZFileName$
CALL BadFile (ZFileName$,BadFileNameIndex)
ON BadFileNameIndex GOTO 20220,20231,20233
* REPLACING old line(s) by new
20244 IF ZUserSecLevel < VAL(ZWorkAra$(2)) THEN _
GOTO 20245
FilePswd$ = ZWorkAra$(3)
IF FilePswd$ = "" THEN _
GOTO 20247
CALL AllCaps (FilePswd$)
IF FilePswd$ = ZPswd$ THEN _
GOTO 20247
* ------[ first line different ]------
ZOutTxt$ = "Enter password to download " + _
ZFileName$
GOSUB 21660
IF ZFileSysParm > 1 THEN _
RETURN
IF ZWasQ = 0 THEN _
RETURN
CALL AllCaps (ZUserIn$(1))
IF ZUserIn$(1) = FilePswd$ THEN _
GOTO 20247
* REPLACING old line(s) by new
20340 IF ZWasDF THEN _
* ------[ first line different ]------
ZOutTxt$ = "Switch to a Non-ASCII protocol" : _
GOSUB 21650 : _
GOTO 21700
GOSUB 20750
IF ZFileSysParm > 1 OR NOT ZOK THEN _
RETURN
CALL OpenWork (2,ZFileName$)
IF (ZAnsIndex = FirstDnld OR NOT ZConcatFIles) THEN _
ZOutTxt$ = "^X aborts. ^S suspends ^Q resumes" : _
GOSUB 21640 : _
IF ZFileSysParm > 1 THEN _
RETURN _
ELSE ZOutTxt$ = ZProtoPrompt$ + " SEND of " + _
ZFileNameHold$ + _
" ready. Press Any Key to start" : _
ZTurboKey = 2 : _
ZForceKeyboard = ZTrue : _
ZSuspendAutologoff = ZTrue : _
GOSUB 21660 : _
ZSuspendAutologoff = ZFalse : _
GOSUB 20335 : _
IF ZFileSysParm > 1 THEN _
RETURN
* REPLACING old line(s) by new
* ------[ first line different ]------
21810 ZOutTxt$ = "Search for what String or Filename (Wildcards OK [ENTER] quits)"
ZMacroMin = 99
GOSUB 21668
IF ZWasQ = 0 THEN _
RETURN
* REPLACING old line(s) by new
21862 WasA1$ = RIGHT$(ZWasLM$,4) +_
LEFT$(ZWasLM$,2)
* ------[ first line different ]------
ZOutTxt$ = "Files on/after MMDDYY, [S]ince = " + WasA1$
GOSUB 21668
CALL AllCaps (ZUserIn$(ZAnsIndex))
IF ZWasQ = 0 OR ZUserIn$(ZAnsIndex) = "S" THEN _
WasRS$ = ZWasLM$ : _
GOTO 21866
* REPLACING old line(s) by new
63470 ' $SUBTITLE: 'SetPrompt - sub to set prompts based on user security'
' $PAGE
'
' NAME -- SetPrompt
'
' INPUTS -- PARAMETER MEANING
' ZBegMain POSITION START OF MAIN CMDS
' ZBegFile POSITION START OF FILE CMDS
' ZBegUtil POSITION START OF UTIL CMDS
' ZBegLibrary POSITION START OF Library CMDS
'
' OUTPUTS -- PRESENT.OPTS$ DISPLAY WHAT USER CAN DO (1st)
' CALLERS.OPTS$ DISPLAY WHAT USER CAN DO (2nd)
' ZMainOpts$ MAIN OPTS USER CAN DO
' ZFileOpts$ FILE OPTS USER CAN DO
' ZUtilOpts$ UTIL OPTS USER CAN DO
' ZLibOpts$ Library OPTS USER CAN DO
'
' PURPOSE -- Sets command line display of what user can do by
' section and display of what all user can do
'
SUB SetPrompt STATIC
First = ZBegMain
Last = ZBegFile - 1
CALL SetOpts (ZMainOpts$,ZInvalidMainOpts$,First,Last)
First = ZBegFile
Last = ZBegUtil - 1
CALL SetOpts (ZFileOpts$,ZInvalidFileOpts$,First,Last)
First = ZBegUtil
Last = ZBegLibrary - 1
CALL SetOpts (ZUtilOpts$,ZInvalidUtilOpts$,First,Last)
First = ZBegLibrary
Last = ZBegLibrary + 6
CALL SetOpts (ZLibOpts$,ZInvalidLibraryOpts$,First,Last)
First = 50
Last = 56
CALL SetOpts (SysOpt$,ZInvalidSysOpts$,First,Last)
First = 46
Last = 49
CALL SetOpts (GlobalOpts$,InvalidGlobalOpts$,First,Last)
IF LEN(SysOpt$) > 0 THEN _
ZSystemOpts$ = "Sysop: " + _
SysOpt$
ZMainOpts$ = GlobalOpts$ + _
ZMainOpts$
ZFileOpts$ = GlobalOpts$ + _
ZFileOpts$
ZUtilOpts$ = GlobalOpts$ + _
ZUtilOpts$
ZLibOpts$ = GlobalOpts$ + _
ZLibOpts$
CALL SortString (SysOpt$)
CALL SortString (ZMainOpts$)
ZMainOpts$ = ZMainOpts$ + _
SysOpt$
CALL SortString (ZFileOpts$)
CALL SortString (ZUtilOpts$)
CALL SortString (ZLibOpts$)
CALL AddCommas (ZMainOpts$)
CALL AddCommas (ZFileOpts$)
CALL AddCommas (ZUtilOpts$)
CALL AddCommas (ZLibOpts$)
ZDirPrompt$ = "What directory(s) (" + _
MID$("U)pload,A)ll,L)ist,E)xtended +/-, [Q]uit)",8 * (ZUserSecLevel => ZMinSecToView) + 9)
* ------[ first line different ]------
ZQuitPromptExpert$ = "Quit C,S, or to F,[M],U,@"
ZQuitPromptNovice$ = "Quit C)onference, S)ession or to section " + _
"F)ile, [M]ain, U)til or @)Library"
ZQuitList$ = "FMUS@C"
IF ZUserSecLevel < ZOptSec(18) THEN _
ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,23) : _
ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,61) : _
MID$(ZQuitList$,5) = " "
IF ZUserSecLevel < ZOptSec(15) THEN _
ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,22) + _
MID$(ZQuitPromptExpert$,25) : _
ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,56) + _
MID$(ZQuitPromptNovice$,63) : _
MID$(ZQuitList$,3,1) = " "
IF ZUserSecLevel < ZOptSec(6) THEN _
ZQuitPromptExpert$ = LEFT$(ZQuitPromptExpert$,16) + _
MID$(ZQuitPromptExpert$,19) : _
ZQuitPromptNovice$ = LEFT$(ZQuitPromptNovice$,41) + _
MID$(ZQuitPromptNovice$,49) : _
MID$(ZQuitList$,1,1) = " "
CALL SetSection
END SUB